Dans plusieurs situations, vous voulez qu'une seule instance
d'une application en même temps. Par example,
si vous faites des changements à un fichier,
vous ne voulez probablement, qu'une autre application
change le fichier en même temps. Donc, voici
un bout de code pour savoir si la même
application est ouverte
Changez le code du projet par
uses windows;
var
MutexHandle: THandle;
begin
MutexHandle := 0;
try
MutexHandle := CreateMutex(nil, True, 'TFormXXXXX');
if GetLastError = ERROR_ALREADY_EXISTS then
begin
SetForegroundWindow(FindWindow('TFormXXXXX', nil));
CloseHandle(MutexHandle)
end
else // écrivez votre code ici
finally
ReleaseMutex(MutexHandle);
end;
end;